' ***^^^***|||***^^^***
' 
'  This file is regenerated until it's edited. Delete the file to force regeneration.

'  NOTE: This denotes the way the file was created and it's possible the 
'        generation type has since changed.
'        Check the generation script for the curent state of the file.

' %%%###%%%4423872280d2ddcf39cfbb2421a1feb5%%%###%%%
' %%%##NoWS##%%%1084dcfc4eb2567c42ef1a5fe4158683%%%##NoWS##%%%
' ***^^^***|||***^^^***

  
'************************************************************************************
' Copyright © 2003-2006 Kathleen Dollard
'
' This software is provided 'as-is', without any express or implied warranty. In no 
' event will the author be held liable for any damages arising from the use of this
' software.
' 
' You may use this software for any purpose, including commercial applications, 
' and you may redistribute this software as part of application delivery: however, 
' this copyright notice may not be removed and you may not otherwise redistribute 
' this software directly other than providing a link to wwww.gendotnet.com. 
'
' You may alter this software to better server your needs (I'd like to hear about your 
' changes in order to make the software better). If you alter the softwre, you must  
' clearly mark it as altered and must not be misrepresented as the original software.
' nor wholly your original work.
'*************************************************************************************

Option Explicit On
Option Strict On

Imports System
Imports System.Collections.Generic



Public Class GenAssembly
   Implements IDocumentRoot

#Region "IDocumentRoot implementation"
   Private mNamespaces As Attributes

   Private Function GetNamespaces() As Attributes
      If mNamespaces Is Nothing Then
         mNamespaces = New Attributes
      End If
      Return mNamespaces
   End Function

   Public ReadOnly Property Namespaces() As Attributes _
         Implements IDocumentRoot.Namespaces
      Get
         Return mNamespaces
      End Get
   End Property

   Public Sub AddNamespace( _
           ByVal namespaceUri As String, _
           ByVal namespacePrefix As String) _
           Implements IDocumentRoot.AddNamespace
      Dim namespaces As Attributes = GetNamespaces()
      Dim bFound As Boolean = False
      For Each nspace As Attribute In namespaces
         If namespaceUri = nspace.NamespaceUri AndAlso namespacePrefix = nspace.NamespacePrefix Then
            bFound = True
         End If
      Next
      If Not bFound Then
         GetNamespaces().Add(New Attribute(namespaceUri, namespacePrefix, String.Empty, String.Empty))
      End If
   End Sub


#End Region

   Public Function GetObject(ByVal name As String) As GenObject
      For Each obj As GenObject In Me.GenObjects
         If obj.Name = name Then
            Return obj
         End If
      Next
      Return Nothing
   End Function
End Class

Public Class GenAssemblyCollection

End Class

	